home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-18 / bklbat.zip / BKL.BAT < prev    next >
DOS Batch File  |  1992-02-04  |  3KB  |  88 lines
  1. @echo off
  2. cls
  3. if not %1!==?! goto start
  4. echo BKL.BAT   Dan Goodell   12/91   (version 1)
  5. echo  
  6. echo    This batch file will backup assorted files and/or directories that are
  7. echo  specified in a .LST (list) file.  The list file must be on the specified
  8. echo  drive where the .LZH backup file will be recorded.  The date stamp of an
  9. echo  .UPD (update) directory entry will be recorded with the date and time of
  10. echo  the backup.
  11. echo    This batch file is designed around the free file compression and
  12. echo  uncompression utility LHA.EXE.
  13. echo  
  14. echo  (This version is NOT capable of chaining errors from "COMMAND /C" calls.
  15. echo   Use this version with DOS 3.3 or later and the "CALL" command.)
  16. echo  
  17. goto syntax
  18.  
  19. :start
  20.    if %1!==chain! set chain=Y
  21.    if %1!==CHAIN! set chain=Y
  22.    if %chain%!==Y! shift
  23.    for %%d in (a: A: b: B:) do if %%d!==%2! set drv=%2
  24.    if %drv%!==! goto noparm
  25. :pack
  26.    echo checking drive %drv% for %1.LST file...
  27.  
  28.    rem ----remove next two lines if CHKDRV.COM not used-----
  29.    CHKDRV %drv%
  30.    if errorlevel 2 goto baddrv
  31.  
  32.    if not exist %drv%%1.lst goto baddisk
  33.    LHA u /x1 /z2 %drv%%1.lzh @%drv%%1.lst /wC:
  34.    if errorlevel 2 goto packerr
  35. :packdone
  36.    echo  
  37.    echo updating .UPD stamp...
  38.    rem > %drv%%1.upd
  39.    echo %1 files backup completed.
  40.    echo  
  41.    goto errors
  42. :baddrv
  43.    echo  
  44.    echo ERROR!  Drive %drv% not ready.  Unable to backup %1 files.
  45.    echo  
  46.    set err=%err%  %1
  47.    goto errors
  48. :baddisk
  49.    echo  
  50.    echo ERROR!  Disk in drive %drv% does not contain %1.LST backup list.
  51.    echo Unable to backup %1 files.
  52.    echo  
  53.    set err=%err%  %1
  54.    goto errors
  55. :packerr
  56.    echo  
  57.    echo ERROR!  LHA unable to backup %1 files.
  58.    echo  
  59.    set err=%err%  %1
  60.    goto errors
  61. :errors
  62.    if %chain%!==Y! goto end
  63.    if %err%!==! goto end
  64.    echo  
  65.    echo WARNING!  The following backups were not completed due to errors:
  66.    echo Error list:%err%
  67.    echo  
  68.    set err=
  69.    goto end
  70. :noparm
  71.    echo  
  72.    echo ERROR!  Incorrect parameters.
  73.    echo  command: BKL %1 %drv%
  74.    echo  
  75. :syntax
  76.    echo  BKL.BAT backup program
  77.    echo  Syntax:  BKL [chain] list d:
  78.    echo  where:                    d: = destination drive of backup (A: or B:)
  79.    echo                       list    = name of backup list (on dest drive)
  80.    echo                chain          = optional parameter used when calling
  81.    echo                                 BKL.BAT from a batch file to retain a
  82.    echo                                 running error list of incomplete backups
  83.    echo  
  84. :end
  85.    set chain=
  86.    set drv=
  87.  
  88.